home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ShowFKeys.zprx < prev    next >
Text File  |  1995-03-09  |  3KB  |  93 lines
  1.  
  2. /*
  3.     $VER: ShowFkeys.zprx (17.09.94) Copyright (c) Ulf Böttcher
  4.  
  5.     Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man die
  6.     Belegung der Funktionstasten anzeigen lassen kann. Nach Eingabe
  7.     der Funktionstastennummer ( F10>=>10 ). Wird die entsprechende
  8.     Zeile von fkeys.zp ausgeführt.
  9.  
  10.     Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
  11.     mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
  12.     nicht ohne Erlaubnis des Autors.
  13.  
  14.     Sie erreichen den Autor wie folgt:
  15.  
  16.        Ulf Böttcher    EMail: HULK@Green.sh.sub.de
  17.  
  18.     Hinweise zur Installation:
  19.  
  20.     Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
  21.     fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
  22.     "F1:SYS:Rexxc/RX ZP:Rexx/ShowFkeys.zprx %s" hinzu.
  23.     Alternativ können auch folgende Zeilen in die Datei usermenus.zp
  24.     eingefügt werden:
  25.  
  26.     *Funktionstasten anzeigen
  27.     Sys:Rexxc/RX ZP:Rexx/ShowFkeys.zprx %s
  28.  
  29. */
  30.  
  31. /*******************************************************************************/
  32. /*    In der Variablen Pfadname muß der Pfad zu fkeys.zp im ZPoint Verzeichnis */
  33. /*    eingetragen werden.                                                      */
  34. /*******************************************************************************/
  35.  
  36. Pfadname = "ZP:fkeys.zp"
  37.  
  38. /*******************************************************************************/
  39.  
  40. OPTIONS RESULTS
  41. PARSE ARG port
  42. ADDRESS VALUE(port)
  43. LF = '0a'x
  44. /* Rexxreqtools.lib öffnen */
  45. call addlib("rexxreqtools.library", 0, -30, 0)
  46.  
  47. /* Rexxsupport.library öffnen (für SHOWLIST() ) */
  48. call addlib("rexxsupport.library",  0, -30, 0)
  49.  
  50. GUILOCK ON
  51. CALL Open('Ftasten',Pfadname,"READ")
  52. zeile = ''                
  53. taste = ''
  54. tasten = ''
  55. text = ''
  56. befehle = ''
  57. DO FOREVER
  58.     zeile = Strip(ReadLn('Ftasten'),"T","%s")
  59.     IF zeile = ''
  60.         THEN BREAK
  61.     taste = Left(zeile,Index(zeile,":"))
  62.     text = text || taste || SubStr(zeile,Lastpos("/",zeile)+1) || LF
  63.     tasten = tasten || taste || "|"
  64.     befehle = befehle || SubStr(zeile,LastPos(zeile,"/")+1) || "|"
  65. END
  66. IF tasten = '' THEN
  67.     DO
  68.         GUILOCK OFF
  69.         REQUESTNOTIFY "Keine Funktionstasten belegt!"
  70.         EXIT(0)
  71.     END
  72.  
  73. text = text || LF || LF || "Funktionstastennummer eingeben" || LF || "F10 <=> 10"
  74. test = 0
  75. do  UNTIL test = 1
  76.     Nummer = rtgetstring(,text,
  77.                         ,"Abfrage....",,"rt_pubscrname=" || port "rt_lockwindow=true")
  78.     IF Nummer = '' THEN
  79.       DO
  80.           GUILOCK OFF
  81.           EXIT
  82.       END
  83.     test = Index(tasten,"F" || Nummer )
  84. END
  85. befehl = SubStr(befehle,Index(befehle,"F" || Nummer))
  86. befehl = Left(befehl,Index(befehl,"|")-1)
  87. befehl = SubStr(befehl,Index(befehl,":")+1)
  88. ADDRESS command befehl port
  89. GUILOCK OFF
  90. EXIT(0)
  91.  
  92.  
  93.